home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
logs
/
logbook
/
dxccprnt.prg
< prev
next >
Wrap
Text File
|
1990-05-04
|
2KB
|
81 lines
*:*********************************************************************
*:
*: Program: DXCCPRNT.PRG
*:
*: System: PC-HAM Logbook
*: Author: Joe Kasser G3ZCZ
*: Copyright (c) 1990, Joe Kasser
*: Last modified: 04/27/90 14:04
*:
*: Called by: DXCC.PRG
*: : DXCCSB.PRG
*: : DXCC5B.PRG
*:
*: Uses: &DXCC
*:
*: Documented 05/04/90 at 13:50 SNAP! version 3.12f
*:*********************************************************************
* DXCCPRINT VERSION 860417, 890602 THIS PROGRAM PRINTS A dxcc file
*COPYRIGHT (C) 1986,1989 G3ZCZ
IF pf ='Y'
SET PRINT ON
ENDIF
STORE 99 TO linecount
STORE 1 TO pagecount
STORE 0 TO qsled
STORE 0 TO worked
USE &dxcc
DO WHILE .not.EOF()
IF linecount > 60
IF pf ='Y'
EJECT
ENDIF
? 'DXCC PRINTOUT as of ',DTOC(DATE ()),' FOR ',callsign,' PAGE',pagecount
IF choice = 'Q'
?? ' QSL STATUS'
ENDIF
STORE pagecount + 1 TO pagecount
?
? ' PX COUNTRY CALL DATE TIME BND MODE STATUS'
? '--------------------------------------------------------'
STORE 5 TO linecount
ENDIF
IF dstate = ' ' .and. choice <> 'P'
ELSE
IF dstate = 'W' .and. choice = 'Q'
ELSE
? px,Country,dcall,ddate,dtime,dband,dmode
STORE linecount + 1 TO linecount
ENDIF
ENDIF
IF dstate = 'Q'
IF choice = 'Q'
ELSE
?? dstate
ENDIF
STORE qsled + 1 TO qsled
STORE worked + 1 TO worked
ENDIF
IF dstate = 'W'
STORE worked + 1 TO worked
ENDIF
SKIP
ENDDO
?
?
? worked,' WORKED ',qsled,'QSL-D'
?
IF pf = 'Y'
EJECT
SET PRINT OFF
* ELSE
* WAIT
ENDIF
RELEASE choice,linecount,pagecount,worked,qsled
RETURN
*: EOF: DXCCPRNT.PRG